home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / CASTLE RICHE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  22 lines
  1. 10  REM **********************
  2. 20  REM *    CASTLE RICHE    *
  3. 30  REM *    BY  BEN GEER    *
  4. 40  REM * COPYRIGHT (C) 1984 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * LINCOLN, MA. 01773 *
  7. 70  REM **********************
  8. 80  HIMEM: 8191
  9. 90  TEXT : HOME : HGR : POKE  -16302,0: ONERR  GOTO 140
  10. 100 ADRS = 0: PRINT  CHR$(4);"BLOAD RBOOT": CALL 520:ADRS =  USR(0),"HRCG": IF ADRS <0  THEN ADRS = ADRS +65536
  11. 110 A = 2:CS = ADRS -768 *A: HIMEM: CS:CH =  INT(CS/256):CL = CS -256 *CH: POKE ADRS +7,CL: POKE ADRS +8,CH
  12. 120  FOR I = 1 TO A: READ CN$: PRINT  CHR$(4);"BLOAD";CN$;",A";CS +(I -1) *768: NEXT I
  13. 130  CALL ADRS +3: POKE 216,0: GOTO 160
  14. 140  TEXT : PRINT "UNABLE TO LOAD": POKE 216,0: END 
  15. 150  DATA FLOW.SET,GOTHIC.SET
  16. 160  ONERR  GOTO 190
  17. 170  PRINT  CHR$(4)"EXEC CASTLE EXEC": END 
  18. 180  REM  CREATE FILE IF NOT FOUND
  19. 190  POKE 216,0:D$ =  CHR$(4)
  20. 200  PRINT D$"OPEN CASTLE EXEC": PRINT D$"WRITE CASTLE EXEC"
  21. 210  PRINT "FP": PRINT "POKE 103,1": PRINT "POKE 104,64": PRINT "POKE 16384,0": PRINT "RUN CASTLE RICHE.MAIN"
  22. 220  PRINT D$"CLOSE": GOTO 170